* lisp/emacs-lisp/pcase.el (pcase--u1): Fix typo

diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index c565687896a517981085c61dd4aad506b6ee2c8a..4804180ac9b64862027d707704667c46159bf285 100644 (file)
--- a/lisp/emacs-lisp/pcase.el
+++ b/lisp/emacs-lisp/pcase.el
@@ -872,7 +872,7 @@ Otherwise, it defers to REST which is a list of branches of the form
           (if (not v)
               (pcase--u1 matches code (cons (list upat sym) vars) rest)
             ;; Non-linear pattern.  Turn it into an `eq' test.
-            (setq (cddr v) 'used)
+            (setcdr (cdr v) 'used)
             (pcase--u1 (cons `(match ,sym . (pred (eql ,(cadr v))))
                              matches)
                        code vars rest))))